<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>41</cardCount>
<cardID>5615</cardID>
<listID>18026</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>-- Demo Stack b1.3-- 9 Feb 88-- Sioux Lacy, David Donaldson, Wayne Robertson-- Demo Stack 2.0a13-- Last Modification: 4/27/88-- Modified by Mike Chiangon domenu menu -- Script added by Animatrix 10/24/89global RPstackname,RPcardnameif menu is in "Home,Quit HyperCard" thenif RPstackname is not empty thenanswer "This will return to "&RPStackname&"."set cursor to watchlock screengo card RPcardname of stack RPstacknameunlock screen with dissolveexit domenuelse pass domenu -- if RPstackname is emptyelsepass domenu -- if menu is not in home or quitend ifend domenufunction inDebug--used mainly for trapping arrow keysreturn (the shiftKey is down and the optionKey is down)end inDebugfunction debug--used for turning on and off the debugging traps--return true if the debugging is turned on--return false if the debugging is turned offreturn falseend debugfunction stripSpaces stringget offset (return, string)if it is not 0 then put empty into char it of stringrepeatget offset (" ", string)if it is 0 then return stringput empty into char it of stringend repeatend stripSpaceson openStackif the version < 1.2 thenset lockMessages to trueanswer "This stack requires HyperCard 1.2 or higher."go homeset lockMessages to trueexit to HyperCardend if--check if the stack is lockset cantModify of this stack to falseif (the cantModify of this stack) thenset lockMessages to trueanswer "Please unlock this stack in the Finder."go homeset lockMessages to trueexit to HyperCardend ifglobal QuotaHasChanged,connectMode,barMargin,barWidth,¬botMargin,sideMarginset userLevel to 5set powerKeys to trueset blindTyping to falseput 15 into barMarginput 15 into botMarginput 15 into sideMarginput 60 into barWidthput "Simulation" into connectMode --default--get the connection mode--if connectMode is empty then--get the connection mode--set lockScreen to true--set lockMessages to true--push card--go card "Connect Setup"--put number of card buttons into numOptions--repeat with i = 1 to numOptions--if highlight of card button i then--put short name of card button i into connectMode--exit repeat--end if--end repeat-- pop card--set lockScreen to false--set lockMessages to false--end ifif connectMode is empty then put "Simulation" into connectModego to card "Connect Setup"--put false into QuotaHasChanged--if the optionKey is not down then-- hide menuBar-- hide message box--hide tool window--hide pattern window--go to card "Map of Regions"--set cursor to 4--send "RetrieveAllData" to bkgnd "Map"--end ifend openStackon closeStackset lockScreen to truepush cardgo to card "Map of Regions"send "EraseMap" to bkgnd "Map"send "DisconnectFromVax" to bkgnd "Region Data"hide field "status"hide field "status backdrop"choose browse toolpop cardset lockScreen to falseend closeStackfunction repInfo repNum--given a rep number, return office_num,quota,sales,percent,last_nameif repNum is empty then return emptyput 1 into cdNumrepeatput short id of card cdNum of background "Region Data" into myIDget itemOffset(repNum,field "rep_nr" of card id myID)if it > 0 then exit repeatif cdNum = number of cards of background "Region Data"then exit repeatadd 1 to cdNumend repeatif it = 0 then return emptyput the short name of card id myID into myNameif myName is "All Regions" then return emptyput word 2 of myName into line 1 of dataput item it of field "quota" of card id myID into line 2 of dataput item it of field "sales" of card id myID into line 3 of dataput item it of field "percent" of card id myID into line 4 of dataput item it of field "last_name"
